From: Stefan Monnier Date: Fri, 22 Mar 2024 01:43:38 +0000 (-0400) Subject: * lisp/help.el (help--analyze-key): Use `help-fns-function-name` X-Git-Tag: archive/raspbian/1%30.1+1-3+rpi1^2~14^2~18^2~2178 X-Git-Url: https://dgit.raspbian.org/%22http://www.example.com/cgi/%22/%22http:/www.example.com/cgi/%22?a=commitdiff_plain;h=60c9702972f3cef9e6dbbce5eaad8cc90ea7f8e8;p=emacs.git * lisp/help.el (help--analyze-key): Use `help-fns-function-name` --- diff --git a/lisp/help.el b/lisp/help.el index 4171d0c57c7..bafe6032942 100644 --- a/lisp/help.el +++ b/lisp/help.el @@ -926,7 +926,9 @@ in the selected window." (let ((key-desc (help-key-description key untranslated))) (if (help--binding-undefined-p defn) (format "%s%s is undefined" key-desc mouse-msg) - (format "%s%s runs the command %S" key-desc mouse-msg defn))) + (format "%s%s runs the command %s" key-desc mouse-msg + (if (symbolp defn) (prin1-to-string defn) + (help-fns-function-name defn))))) defn event mouse-msg))) (defun help--filter-info-list (info-list i)